home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1990 October / 1990-10.d64 / c-list 64 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  876b  |  19 lines
  1. 10 rem copyright 1990 compute! publications, inc. - all rights reserved
  2. 20 poke53280,15:poke53281,15:sa=680:rem starting address
  3. 30 forl=0to85:readk:pokesa+l,k:next
  4. 40 na=sa+11:t=int(na/256):pokesa+1,na-t*256:pokesa+6,t
  5. 50 c1=sa+51:c2=sa+55:c3=sa+59:c4=sa+63:c5=sa+67:da=sa+75
  6. 60 print"[147] [192][192][192][192][192][192][192][192] c64 multicolor list [192][192][192][192][192][192][192][192]"
  7. 70 pokec1,4:printtab(7)"poke"c1",4:rem operators"
  8. 80 pokec2,7:printtab(7)"poke"c2",7:rem functions"
  9. 90 pokec3,2:printtab(7)"poke"c3",2:rem keywords"
  10. 100 pokec4,11:printtab(7)"poke"c4",11:rem strings"
  11. 110 pokec5,6:printtab(7)"poke"c5",6:rem characters"
  12. 120 syssa:print"   enable: sys"sa" disable: sys"da:end
  13. 130 data 169,71,141,6,3,169,3,141,7,3,96,72,165,212,201,1
  14. 140 data 240,44,104,72,16,44,201,163,144,32,201,163,240,24,201,164
  15. 150 data 240,24,201,166,144,16,201,167,240,16,201,180,144,4,201,204
  16. 160 data 144,4,169,6,16,14,169,6,16,10,169,6,16,6,169,6
  17. 170 data 16,2,169,6,141,134,2,104,76,26,167,169,26,141,6,3
  18. 180 data 169,167,141,7,3,96
  19.